home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / AmigaFax1_42.lha / AmigaFax / s / SetLastFax < prev    next >
Text File  |  1993-05-26  |  523b  |  21 lines
  1. ; Afax:s/SetLastFax
  2. ; Script sets local variable lastfax to name of last fax received
  3. ;
  4. if exists FAXREC:.next
  5.   set num `type FAXREC:.next`
  6.   set num `eval $num - 1`
  7.   set lastfax FAXREC:FAX$num
  8.   if not exists $lastfax
  9.     set lastfax FAXREC:FAX0$num
  10.       if not exists $lastfax
  11.         set lastfax FAXREC:FAX00$num
  12.           if not exists $lastfax
  13.             set lastfax FAXREC:FAX000$num
  14.               if not exists $lastfax
  15.                 unset lastfax
  16.               endif
  17.           endif
  18.       endif
  19.   endif
  20. endif
  21.